-
Notifications
You must be signed in to change notification settings - Fork 364
New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
Update gw_convect #6749
base: master
Are you sure you want to change the base?
Update gw_convect #6749
Conversation
|
dbc44a1
to
5c37d1b
Compare
|
||
subroutine gw_convect_init( plev_src_wind, mfcc_in, errstring) | ||
use ref_pres, only: pref_edge | ||
real(r8), intent(in) :: plev_src_wind ! previously hardcoded to 70000._r8 |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
I'd add here in the comments that plev_src_wind should be in units Pa to match pref_edge. Maybe also want to mention that actual steering flow pressure level can differ from what the user requests wherever the reference pressure values differ from the actual pressure values (i.e. over mountainous terrain).
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Just a some minor comments, mainly to clarify units. I like the new loop scheme.
<entry id="gw_convect_hdepth_min" type="real" category="gw_drag" | ||
group="gw_drag_nl" valid_values="" > | ||
minimum hdepth for for convective GWD spectrum lookup table | ||
Default: 2.5 |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Add units: km (presumably)
real(r8), parameter :: AL = 1.0e5_r8 | ||
! fixed parameters (we may want to expose these in the namelist for tuning) | ||
real(r8), parameter :: tau_avg_length = 1.0e5_r8 ! spectrum averaging length | ||
real(r8), parameter :: heating_altitude_max = 20e3 ! max altitude to check heating (probably don't need this) |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Add units to heating_altitude_max description. Also, 20000._r8?
@@ -118,6 +118,11 @@ module gw_drag | |||
! namelist | |||
logical :: history_amwg ! output the variables used by the AMWG diag package | |||
|
|||
logical :: use_gw_convect_old ! switch to enable legacy behavior | |||
real(r8) :: gw_convect_plev_src_wind ! reference pressure level for source wind for convective GWD |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Add that gw_convect_plev_src_wind must be in units Pa.
@@ -118,6 +118,11 @@ module gw_drag | |||
! namelist | |||
logical :: history_amwg ! output the variables used by the AMWG diag package | |||
|
|||
logical :: use_gw_convect_old ! switch to enable legacy behavior | |||
real(r8) :: gw_convect_plev_src_wind ! reference pressure level for source wind for convective GWD | |||
real(r8) :: gw_convect_hdepth_min ! minimum hdepth for for convective GWD spectrum lookup table |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Add units for gw_convect_hdepth_min.
logical :: use_gw_convect_old ! switch to enable legacy behavior | ||
real(r8) :: gw_convect_plev_src_wind ! reference pressure level for source wind for convective GWD | ||
real(r8) :: gw_convect_hdepth_min ! minimum hdepth for for convective GWD spectrum lookup table | ||
real(r8) :: gw_convect_storm_speed_min ! minimum convective storm speed for convective GWD |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Add expected units for gw_convect_storm_speed_min.
The makes several changes to the convective gravity wave methods. The primary motivation was to address a problem in gw_beres_src() where the diagnosed heating max/depth values were erroneously too low whenever the ZM heating profile included negative values (or zero) in the middle of the heating layer. Additionally, previously hard coded values were exposed as namelist values for a planned QBO tuning exercise for the QBO SciDAC project.
[BFB]